home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1990-08-24  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>110</cardCount>
  7.     <cardID>56725</cardID>
  8.     <listID>25402</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-- ================ Apple Training Support =================---- Project Name: HyperCard 2.0 Product Training---- Apple employees:-- Design and Development: Jeff Brechlin-- Team Leader: Mary VanRiper---- Contractors:-- Design/Animations: Anne Wysocki-- Programmers: Gabriel Acosta, Kristi Wachter, Anne Wysocki-- Last modified: April 6, 1990-- ========================================================-- ========================================================-- XCMD's:--   in this stack:--     ZoomRect--     SetVolume : ¬© by Steven Kienle--     TitleBar : by Chris Knepper, ¬© 1988 by Apple Computer, Inc.--   in stack ‚Ä¢HC 2.0-2:--     Studio1 : ¬© 1989 by Electronic Arts--     PaintPICT : ¬© 1989 by Ruben Pinchanski--     SaveColorState--     SetColorState--     GetMaxColors--     ShowDialog-- XFCN's:--   in this stack:--     SysEnv()--   in stack ‚Ä¢HC 2.0-2:--     Hpopupmenu() : Hierarchical PopupMenu 1.2, ¬© 1988-1989 by--        Guy de Picciotto, its author, All Rights Reserved-- ========================================================-- ========================================================-- OPENSTACK HANDLERS---- Globals--      WalkDelay: the number of ticks between Elmo's steps--      disSpeed:  the speed to use for visual dissolves--      StdDelay:  a standard delay for hilites and card transitions--      MapMode:   tells what map to go to--      UpEdge:    the Y coord where the flying btn stops on menu anis--on openStackglobal gFirstTimeif gFirstTime is "no" then pass openStacklock screencheckVersion  --  make sure they have HC 1.2.2 or latersetupStuff    --  hide menubar; set userlevel and volumesetGlobals    --  set up global variables (delays, etc.)put "no" into gFirstTimeput line 1 of cd fld "Bookmark" of cd "Hi" into destput line 2 of cd fld "Bookmark" of cd "Hi" into stackDestif dest is not empty thengo cd dest of stack stackDestunlock screen with visual dissolveelse--‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢ I removed the openCard handler from the black card...---- so now everything happens as a result of this:---- (and that there is now a new blank card as card 1)unlock screen with dissolvevisual iris opengo cd "Black Intro Card"wait 20visual iris open slowgo cd "hi"wait 30lock screenshow cd fld "instructionFld"unlock screen with wipe rightend ifend openStack-- make sure the user has HyperCard 1.2.2 or lateron checkVersionif the version < 1.2 thenanswer "You need HyperCard 1.2 or later."visual dissolvego homeend ifend checkVersion-- set up the environmenton setupStuffhide menubarhide msgTitleBar hideput the userLevel into line 3 of cd fld "BookMark" of cd "Hi"set the userLevel to 5setVolume 3end setupStuff-- get the Microprocessor and set up the necessary globalson setGlobalsglobal WalkDelay,DisSpeed,StdDelay,MapMode,UpEdgeput word 2 of item 3 of sysenv() into SysMpif SysMp is "68000" thenput 0 into WalkDelayput "dissolve fast" into DisSpeedput 2 into StdDelayelseput 5 into WalkDelayput "dissolve" into DisSpeedput 10 into StdDelayend ifput "graph" into MapModeput 23 into UpEdgeend setGlobals-- ask whether to reset the stackson resetStacksanswer "Do you want to save your place?" with "No" or "Yes"lock screenif it is "No" thenset cursor to watchresetMenusresetMapresetSAput empty into cd fld "Bookmark" of cd "Hi"elseglobal cameFrom,stakNameif cameFrom is empty thenput the short name of this cd into CameFromput the short name of this stack into stakNameend ifput cameFrom into line 1 of cd fld "BookMark" of cd "Hi"put stakName into line 2 of cd fld "BookMark" of cd "Hi"end ifglobal gFirstTime,CameFrom,